subroutine print_d_time(t_array0,str)
  implicit none
  integer :: t_array0(8),t_array1(8),t_array_d(8)
  character :: str*(*)
  integer :: i

900 format(i2.2,":",i2.2,":",i2.2)
  
  call date_and_time(values=t_array1)
  do i=1,8
     t_array_d(i)=t_array1(i)-t_array0(i)
  end do

  write(str,900) t_array_d(5),&
                 t_array_d(6),&
                 t_array_d(7)

  return

end subroutine print_d_time
